home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / lock / lock.frm < prev    next >
Text File  |  1995-12-05  |  3KB  |  110 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Lock"
  5.    ClientHeight    =   2535
  6.    ClientLeft      =   690
  7.    ClientTop       =   4080
  8.    ClientWidth     =   10335
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   2940
  12.    KeyPreview      =   -1  'True
  13.    Left            =   630
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2535
  19.    ScaleWidth      =   10335
  20.    Top             =   3735
  21.    Width           =   10455
  22.    Begin TextBox Text1 
  23.       Height          =   1212
  24.       Left            =   2880
  25.       MultiLine       =   -1  'True
  26.       ScrollBars      =   2  'Vertical
  27.       TabIndex        =   1
  28.       Text            =   "text1 has the tabindex 1 and you're able to write in this control."
  29.       Top             =   240
  30.       Width           =   6972
  31.    End
  32.    Begin CommandButton Command1 
  33.       Caption         =   "end"
  34.       Height          =   492
  35.       Left            =   840
  36.       TabIndex        =   0
  37.       Top             =   720
  38.       Width           =   1332
  39.    End
  40.    Begin Label Label1 
  41.       BackColor       =   &H00C0C0C0&
  42.       Caption         =   "this demo shows how to disable task-switching or  termination of an VB -appl. via keyboard. please try  'ctl'  + 'esc' , 'alt' + 'tab' or 'alt' + 'F4'"
  43.       Height          =   492
  44.       Left            =   1320
  45.       TabIndex        =   2
  46.       Top             =   1560
  47.       Width           =   8532
  48.    End
  49. End
  50. Declare Function getactivewindow Lib "User" () As Integer
  51. Declare Function SetFocusAPI Lib "User" Alias "SetFocus" (ByVal hWnd As Integer) As Integer
  52. Declare Function SetSysModalWindow Lib "User" (ByVal hWnd As Integer) As Integer
  53. Declare Function LockInput Lib "User" (ByVal hReserved As Integer, ByVal hwndInput As Integer, ByVal fLock As Integer) As Integer
  54.  
  55.  
  56. Dim vwnd As Integer
  57.  
  58.  
  59. ' thomas hengelhaupt
  60. ' comp-serve id 100120,115
  61.  
  62. Sub Command1_Click ()
  63.       x = LockInput(0, vwnd, 0)
  64.       End
  65. End Sub
  66.  
  67. Sub Form_KeyDown (keycode As Integer, Shift As Integer)
  68. Select Case keycode
  69.    Case 0 To 20
  70.      keycode = 0
  71.    Case 100 To 255
  72.      keycode = 0
  73. End Select
  74. End Sub
  75.  
  76. Sub Form_Load ()
  77. Show
  78. DoEvents
  79. vwnd = getactivewindow()
  80. Dim x As Integer
  81. x = SetFocusAPI(vwnd)
  82. x = SetSysModalWindow(vwnd)
  83. x = LockInput(0, vwnd, 1)
  84. End Sub
  85.  
  86. Sub Form_Unload (Cancel As Integer)
  87. x = LockInput(0, vwnd, 0)
  88. End Sub
  89.  
  90. Sub List1_Click ()
  91.  
  92. End Sub
  93.  
  94. Sub List1_DragOver (Source As Control, x As Single, Y As Single, state As Integer)
  95.  
  96.  
  97. End Sub
  98.  
  99. Sub List1_KeyDown (keycode As Integer, Shift As Integer)
  100. If keycode = 27 Then
  101. Unload form1
  102. Load form1
  103. form1.Show
  104. End If
  105. End Sub
  106.  
  107. Sub List1_MouseDown (button As Integer, Shift As Integer, x As Single, Y As Single)
  108. End Sub
  109.  
  110.